home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Skunkware 98
/
Skunkware 98.iso
/
src
/
mail
/
pine3.96.tar.gz
/
pine3.96.tar
/
pine3.96
/
pine
/
osdep
/
print
< prev
next >
Wrap
Text File
|
1996-05-21
|
10KB
|
399 lines
/*======================================================================
print routines
Functions having to do with printing on paper and forking of spoolers
In general one calls open_printer() to start printing. One of
the little print functions to send a line or string, and then
call print_end() when complete. This takes care of forking off a spooler
and piping the stuff down it. No handles or anything here because there's
only one printer open at a time.
====*/
static char *trailer; /* so both open and close_printer can see it */
/*----------------------------------------------------------------------
Open the printer
Args: desc -- Description of item to print. Should have one trailing blank.
Return value: < 0 is a failure.
0 a success.
This does most of the work of popen so we can save the standard output of the
command we execute and send it back to the user.
----*/
int
open_printer(desc)
char *desc;
{
char command[201], prompt[200];
int cmd, rc, just_one;
char *p, *init, *nick;
char aname[100];
char *printer;
int done = 0, i, lastprinter, cur_printer = 0;
HelpType help;
char **list;
static ESCKEY_S ekey[] = {
{'y', 'y', "Y", "Yes"},
{'n', 'n', "N", "No"},
{ctrl('P'), 10, "^P", "Prev Printer"},
{ctrl('N'), 11, "^N", "Next Printer"},
{-2, 0, NULL, NULL},
{'c', 'c', "C", "CustomPrint"},
{KEY_UP, 10, "", ""},
{KEY_DOWN, 11, "", ""},
{-1, 0, NULL, NULL}};
#define PREV_KEY 2
#define NEXT_KEY 3
#define CUSTOM_KEY 5
#define UP_KEY 6
#define DOWN_KEY 7
trailer = NULL;
init = NULL;
nick = NULL;
command[200] = '\0';
if(ps_global->VAR_PRINTER == NULL){
q_status_message(SM_ORDER | SM_DING, 3, 5,
"No printer has been chosen. Use SETUP on main menu to make choice.");
return(-1);
}
/* Is there just one print command available? */
just_one = (ps_global->printer_category!=3&&ps_global->printer_category!=2)
|| (ps_global->printer_category == 2
&& !(ps_global->VAR_STANDARD_PRINTER
&& ps_global->VAR_STANDARD_PRINTER[0]
&& ps_global->VAR_STANDARD_PRINTER[1]))
|| (ps_global->printer_category == 3
&& !(ps_global->VAR_PERSONAL_PRINT_COMMAND
&& ps_global->VAR_PERSONAL_PRINT_COMMAND[0]
&& ps_global->VAR_PERSONAL_PRINT_COMMAND[1]));
if(F_ON(F_CUSTOM_PRINT, ps_global))
ekey[CUSTOM_KEY].ch = 'c'; /* turn this key on */
else
ekey[CUSTOM_KEY].ch = -2; /* turn this key off */
if(just_one){
ekey[PREV_KEY].ch = -2; /* turn these keys off */
ekey[NEXT_KEY].ch = -2;
ekey[UP_KEY].ch = -2;
ekey[DOWN_KEY].ch = -2;
}
else{
ekey[PREV_KEY].ch = ctrl('P'); /* turn these keys on */
ekey[NEXT_KEY].ch = ctrl('N');
ekey[UP_KEY].ch = KEY_UP;
ekey[DOWN_KEY].ch = KEY_DOWN;
/*
* count how many printers in list and find the default in the list
*/
if(ps_global->printer_category == 2)
list = ps_global->VAR_STANDARD_PRINTER;
else
list = ps_global->VAR_PERSONAL_PRINT_COMMAND;
for(i = 0; list[i]; i++)
if(strcmp(ps_global->VAR_PRINTER, list[i]) == 0)
cur_printer = i;
lastprinter = i - 1;
}
help = NO_HELP;
ps_global->mangled_footer = 1;
while(!done){
if(init)
fs_give((void **)&init);
if(trailer)
fs_give((void **)&trailer);
if(just_one)
printer = ps_global->VAR_PRINTER;
else
printer = list[cur_printer];
parse_printer(printer, &nick, &p, &init, &trailer, NULL, NULL);
strncpy(command, p, 200);
fs_give((void **)&p);
sprintf(prompt, "Print %susing \"%s\" ? ", desc ? desc : "",
*nick ? nick : command);
fs_give((void **)&nick);
cmd = radio_buttons(prompt, -FOOTER_ROWS(ps_global),
ekey, 'y', 'x', help, RB_NORM);
switch(cmd){
case 'y':
q_status_message1(SM_ORDER, 0, 9,
"Printing with command \"%s\"", command);
done++;
break;
case 10:
cur_printer = (cur_printer>0)
? (cur_printer-1)
: lastprinter;
break;
case 11:
cur_printer = (cur_printer<lastprinter)
? (cur_printer+1)
: 0;
break;
case 'n':
case 'x':
done++;
break;
case 'c':
done++;
break;
default:
break;
}
}
if(cmd == 'c'){
if(init)
fs_give((void **)&init);
if(trailer)
fs_give((void **)&trailer);
sprintf(prompt, "Enter custom command : ");
command[0] = '\0';
rc = 1;
while(rc){
rc = optionally_enter(command, -FOOTER_ROWS(ps_global), 0,
200, 1, 0, prompt, NULL, NO_HELP, 0);
if(rc == 1){
cmd = 'x';
rc = 0;
}
else if(rc == 3)
q_status_message(SM_ORDER, 0, 3, "No help available");
else if(rc == 0){
removing_trailing_white_space(command);
removing_leading_white_space(command);
q_status_message1(SM_ORDER, 0, 9,
"Printing with command \"%s\"", command);
}
}
}
if(cmd == 'x' || cmd == 'n'){
q_status_message(SM_ORDER, 0, 2, "Print cancelled");
if(init)
fs_give((void **)&init);
if(trailer)
fs_give((void **)&trailer);
return(-1);
}
display_message('x');
ps_global->print = (PRINT_S *)fs_get(sizeof(PRINT_S));
memset(ps_global->print, 0, sizeof(PRINT_S));
strcat(strcpy(aname, ANSI_PRINTER), "-no-formfeed");
if(strucmp(command, ANSI_PRINTER) == 0
|| strucmp(command, aname) == 0){
/*----------- Printer attached to ansi device ---------*/
q_status_message(SM_ORDER, 0, 9,
"Printing to attached desktop printer...");
display_message('x');
xonxoff_proc(1); /* make sure XON/XOFF used */
crlf_proc(1); /* AND LF->CR xlation */
fputs("\033[5i", stdout);
ps_global->print->fp = stdout;
if(strucmp(command, ANSI_PRINTER) == 0){
/* put formfeed at the end of the trailer string */
if(trailer){
int len = strlen(trailer);
fs_resize((void **)&trailer, len+2);
trailer[len] = '\f';
trailer[len+1] = '\0';
}
else
trailer = cpystr("\f");
}
}
else{
/*----------- Print by forking off a UNIX command ------------*/
dprint(4, (debugfile, "Printing using command \"%s\"\n", command));
ps_global->print->result = temp_nam(NULL, "pine_prt");
if(ps_global->print->pipe = open_system_pipe(command,
&ps_global->print->result, NULL,
PIPE_WRITE | PIPE_STDERR)){
ps_global->print->fp = ps_global->print->pipe->out.f;
}
else{
fs_give((void **)&ps_global->print->result);
q_status_message1(SM_ORDER | SM_DING, 3, 4,
"Error opening printer: %s",
error_description(errno));
dprint(2, (debugfile, "Error popening printer \"%s\"\n",
error_description(errno)));
if(init)
fs_give((void **)&init);
if(trailer)
fs_give((void **)&trailer);
return(-1);
}
}
ps_global->print->err = 0;
if(init){
if(*init)
fputs(init, ps_global->print->fp);
fs_give((void **)&init);
}
return(0);
}
/*----------------------------------------------------------------------
Close printer
If we're piping to a spooler close down the pipe and wait for the process
to finish. If we're sending to an attached printer send the escape sequence.
Also let the user know the result of the print
----*/
void
close_printer()
{
if(trailer){
if(*trailer)
fputs(trailer, ps_global->print->fp);
fs_give((void **)&trailer);
}
if(ps_global->print->fp == stdout) {
fputs("\033[4i", stdout);
fflush(stdout);
xonxoff_proc(0); /* turn off XON/XOFF */
crlf_proc(0); /* turn off CF->LF xlantion */
} else {
(void) close_system_pipe(&ps_global->print->pipe);
display_output_file(ps_global->print->result, "PRINT", NULL);
fs_give((void **)&ps_global->print->result);
}
fs_give((void **)&ps_global->print);
q_status_message(SM_ASYNC, 0, 3, "Print command completed");
display_message('x');
}
/*----------------------------------------------------------------------
Print a single character
Args: c -- char to print
Returns: 1 on success, 0 on ps_global->print->err
----*/
int
print_char(c)
int c;
{
if(!ps_global->print->err && putc(c, ps_global->print->fp) == EOF)
ps_global->print->err = 1;
return(!ps_global->print->err);
}
/*----------------------------------------------------------------------
Send a line of text to the printer
Args: line -- Text to print
----*/
void
print_text(line)
char *line;
{
if(!ps_global->print->err && fputs(line, ps_global->print->fp) == EOF)
ps_global->print->err = 1;
}
/*----------------------------------------------------------------------
printf style formatting with one arg for printer
Args: line -- The printf control string
a1 -- The 1st argument for printf
----*/
void
print_text1(line, a1)
char *line, *a1;
{
if(!ps_global->print->err
&& fprintf(ps_global->print->fp, line, a1) < 0)
ps_global->print->err = 1;
}
/*----------------------------------------------------------------------
printf style formatting with one arg for printer
Args: line -- The printf control string
a1 -- The 1st argument for printf
a2 -- The 2nd argument for printf
----*/
void
print_text2(line, a1, a2)
char *line, *a1, *a2;
{
if(!ps_global->print->err
&& fprintf(ps_global->print->fp, line, a1, a2) < 0)
ps_global->print->err = 1;
}
/*----------------------------------------------------------------------
printf style formatting with one arg for printer
Args: line -- The printf control string
a1 -- The 1st argument for printf
a2 -- The 2nd argument for printf
a3 -- The 3rd argument for printf
----*/
void
print_text3(line, a1, a2, a3)
char *line, *a1, *a2, *a3;
{
if(!ps_global->print->err
&& fprintf(ps_global->print->fp, line, a1, a2, a3) < 0)
ps_global->print->err = 1;
}